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U n oreve cenno su Life per 
que letto'ichenon renanno 
mai senno cariare: si tratta di 
un geco di smjlaziore in¬ 
ventato quasi trent'am fa dal matema¬ 
tico americano Conway in cui si assiste 
ali'evolve'Si nel tempo di una alquanto 
mprocabile colora di ce ! ule. Questa 
colonia è imp-obabile perché si estende 
esc us variente nel p ano (non conosce 
a terza dimensione) e soprattutto per¬ 
ché le sue cehule nascono e muoiono 
soguendo delle rigide regoe matemati¬ 
che; nonostante ciò. Life mantiene un 
fase no tutto padicola-e, soprattutto 
per i imprevedibilità delle configurazioni 
che possono venirsi a formare, anche 
parendo da una coioma di peone cel¬ 
lule. 

Le regole che determinano la vita della 
colonia sono davvero molto semplici: 
ogni locazione ne p ano contiene una 
cellula che può essere viva oppure 
morta (oppure potete dire che contiene 
ura cellula o non contiene mente, se 
non volete assolutamente ammettere 
che le cellule possano risorgere); una 
cellula morta torna a essere viva se con¬ 
fina con esattamente tre cellule vive (si 
corsicerano adiacenti lo otto locazioni 
che circondano que a posizione), men¬ 
tre una ce iuta viva può continuare a 
v.vere se ha due oppure tre cellule viene 
vive se invece na mero di due oppure 
piu di tre v e ni vivi essa muo*e (pe' >so- 
amerto re pr mo caso e per soffoca¬ 
mento re secondo) 

Per non pome dei limiti alla crescita 
della colonia Life dovrebbe svolgersi su 
un oiaro tnf nito, cosa cniaramerte im- 
possiclle adope'ando computer; 
spesso m casi come questo si ricorre 
ali artif co di considerare adiacenti il 
bordo mfenore e que o superiore, come 
pure due bordi laterali ( risultato è 
quello che si avrebbe giocando su una 
supe'ficie toro date) : piano di gioco 
rimare finito ma in questo modo ogni 
cellula cort nua ad avere semp*e otto 
vicini e si evitano 'astidiose distorsioni 
a limiti del campo. 

Anche questo programma d Life per il 
QL adotta questo artificio pe' espande¬ 
re log camerte il campo che misura 24 
r gne per 30 colonne è scritto esclusiva¬ 
mente ir Supe'Basc. ma è lo stesso 
mo to veloce (una decina di secondi per 
colonie d ura trentina di ©‘©mento, gra¬ 
zie a un algoritmo ott m zzato e a qual¬ 
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Life 


Anche per il QL, uno dei più famosi giochi 

di simulazione 


di Francesco Balena 


che bacchetto che spiegheremo più a- 
vanti 

Dando il Run al programma ci sì porta 
in fase di creazione della colonia pos¬ 
siamo spostarci sul piano con te frec¬ 
cette e lasciar cade'e dei e cellu e vive 
con la barra spazia» ce. che può anche 
essere usata per correggere gli error 
Come spega arene il messaggio nella 
f nestra in basso a destra. In questa fase 
sono attivi altri due tasti FI che pulisce 
l'intero schermo (in pratica effettua un 
Run) e F2 che termina la fase di creazio¬ 
ne e che potremo usare solo Quando 
saremo soddisfa» della configurazione 
iniziale per passare alla fase di elabora¬ 
zione vera e propria. 

A questo punto, dopo che è stata cal¬ 
colata e visualizzata a prima peren¬ 
zione di cellule. abbiamolapossib ntàd 
visualizzare le generazioni successive 
premendo un tasto qualsiasi, a eccezio¬ 
ne di Fi che c rimanda alla fase di 
creazione (o meglio di editing, in questo 
caso) e di F2 che attiva l'auto-mode. in 
cui le genenzioni vengono create sen¬ 
za attendere l'intervento dell'utente; per 
uscire dallauto-mcde è sufficente pre¬ 
mere un qualsiasi tasto. 

Il programma 

Scrivere un programma come Life 
sembra a prima v.sta molto facile (e m 
parte lo è): basta considerare una ma¬ 
trice b dimensionale che rappresenta e 
cellule della colonia e per ogni gene*a- 
z;one calcolare il numero d' vieni vivi 
per ogm posizione e decidere cos ; per la 
vita o per la mo'te di ogni cellula 

Eppure questo metodo non funziona 
correttamente Intatti po cné si suppone 
che le nascite e mort< avvengono nello 


stesso istante per tutte le cellule, avremo 
bisogno di due matrici una per tener 
conto de a stjaziore attuale (su cui 
contare il numero dei vicini) e ra t-a per 
memorizzare a situazone che si vera a 
creare all'inizio dei a generazione suc- 
cessva Tra una generazone e l'altra 
dovremo rico'darci d caricare re apr- 
ma matrice gì elemert de a seconda, 
con una perdita di tempo ron indiffe¬ 
rente 

Quest'ultimo sistema funziona, ma r - 
sulta un po' troopo lento, percne la ma¬ 
trice deve essere esam nata 'ulta ar 
che se la colonia conta una min ma 
parte di cellu e vive. 

Il presente crog'amma ut zza nvece 
un approccio alquanto dive'so. Le ma¬ 
trici in gioco sono ancora due la pr ma 
memorizza la situazone de a colonia 
(uno pe' le ce: jle vive e zero oer que e 
morte) mentre a tra conta pe* ciascu¬ 
na posizione il numero dei suoi vicir i viv 
e v ene agg ornata a ogn nascita o 
morte esattamente come la prima A 
esempio, se una ce lu a risorge. Il pro¬ 
gramma memorizzerà uro nella cosi- 
zione corrispondente nella prima matri¬ 
ce e incrementerà di uno tutte le caselle 
della seconda matrice ac acenti a o jel- 
a della cellula appena naia, li vantag¬ 
gio d questo sistema è evidente nel 
primo metodo il calcolo dei vicini veniva 
ripetuto per tutte e 24 x 33 - 720 caselle, 
mentre cos vene effettuato solo pe' 
quelle (poche) ceiue che cambiano 
stato da una generaz one ali altra 
In realtà il programma usa rfuematnci 
per memo'izzare il nume'o dei vicini, 
esattamente come nel metodo pr ma 
cescritto. In questo caso occorre usare 
aue mat'ici per memorizzare a situazio¬ 
ne della colon a: una cer a situazone 
attuale e l altra oer la situazione cne S 1 








verrà a creare all mzio ce a generarlo 
re successiva. 

L'altro fuoco usato ca ologramma e 
quello d moiegare non delle mat-ici 
bdmensiona bersi ce e setolici 
str righe, e cioè CS pe- la s t jazione de - 
la color a (conterrà ce caratter zero 
occure uno a seconda cne a cellula 
co'rlspondente sia morta o viva), pS o 
rS par conta'e il rumerò dei vicir vivi 
pe* ciascuna posizione (cne conte-ran- 
ro dei numeri da zero a otto) ovvia¬ 
mente tutte e tre delia stessa d ~*ens c- 
re. Perché usare delle str. nghe e non 
delle matrc cidlmersionaii numeriche 
.(cne tra i altro rende-ebte-o program¬ 
ma clù leggibile)? Perone di tutte le cei- 
lu e dei campo a no- mte'essano solo 
quelle vive che possono rro*ire se non 
hanno due o tre v c m vivi, e quei e con 
esattamente tre vicini vivi, cne se sono 
mone possono tornare a vivere. Pcicnó 
cueste ce ule soro in genere jna e c¬ 
cola parte di tutte le cellule del gioco e 
me to conveniente ’ermare a nos'ra at¬ 
tenzione su ai esse soh.arto, rntrac- 
c andole nelle stringhe soc'a citate ce- 
mezzo della velocissima funzione U n- 
strmg (vedero riga 1990) ed evitanco di 


orendere n cons aerazione tutte e cel- 
ule morte che scj'amente r varranno 
tali nella prossima generazione 
Un auro vantaggio r ente affatto tra¬ 
scurarle (ir term n d; temp di elabora¬ 
zione) vene dal tatto che per trasferire 
contenuto di una matrice in un altra 
occome trasfer re ogni singolo elemen¬ 
to, mentre re caso di due stringhe II 
tutto si risolve con ura semplice e 'ap ■ 
diss ma assegnazione (riga 1840) 


Principali variabili globali 

nrl - Numero delle righe del campo di 
g eco (24) 

nco N jmero de e colonne del camoo 
di gioco (30) 

coll - Numero de. e cellu'e vive, 
gener - Numero oi generazioni e adora¬ 
te 

cS - St'inga di caratteri che rappresenta 
la situazione Cena colonia (uno per le 
cellule vive e zero per qjelle morte). 
pS Stringa che conta il numero dei 
vieni oer ogni posiz one del campo; es¬ 
sa viene testata ne! a procedura gene¬ 


ra" ins eme alla precedente C6r decide¬ 
re il destino di ogr cellula 
n$ - Arche questa str nga conta II ru¬ 
merò de' vicini per ogni ceiula, ma a 
differenza de a pS. viene aggiornata 
man mano che e copule cambiano sta¬ 
to. per tener conto della s tuazlone cne 
si verrà a creare all nlzio delia genera¬ 
zione seguente. 

Nota Tutte queste tre strir g.ne non con¬ 
tano 720 elemert come c si ootrecbe 
aspettare. Censi 26 x 32-832 caratter 
derivano cioè da una mat-ice con due 
nghe e due colonne in p u oer tener 
conto del 'atto cne i bordi opposti sono 
cons de-ati adiacert e pe- evitare tasti¬ 
ci os controlli sugli ndici 
col, co2, co3 - coefficìert (calco at j- 
ra vo ta oer tutte nelle ngne 1370-1380) 
che stab scono la co-rispondenza tra il 
campo d> goco (quello cne ved amo 
sullo scherno) e le stanghe che o rap¬ 
presentano internamente A esempio, 
l’elemento (r.c) della matr ce cc-r spon¬ 
de a'i'eiemento 

r * col + C * 1 

Ci una de e tre stringhe cS, pS o nS 


U*l*lo 1-M programma Lira. 


10e0 REKaric- 

LIFE 

noetico Balena - 1985 


Fra 


1150 PRINT #7S\V AUTO RODE' 

1160 FLASH #7.0: INK #7.7: PRIVI 

#7\\V PREMI UN TASTO' 

1170 REPcat conti genera: BEEP 800.6 
: IF INKEYSO * * THES EXIT cont 
1180 END 1F 
1190 END REPeat. loop 

1200 REXark - 

INIZI AL IZZAZIONE 


1010 init 
102O eros 
1030 REPcat loop 

1040 CLS #7; 1NK #7.2: FLASH #7,1 
1050 FRISI #7, WWN* ELABO RAZIONE': 

FLASH #7.0 
1060 genera 
1070 BEEP 800.6 

1080 CLS #7: INK #7.4: PRINT #7\\ 

' FREMI US TASTO* 

1090 IVX #7.7: PRINT #7\\\'F1 PER RESTA 
RT'\VF2 PER AUTOGBX’ 

UOe RANDOMISE KEYROVCO) 

1110 taato«CODE <INXEYS <-1)) 

1120 IF taato"232: crea: NBXT loop 

1130 IF taoto-236 THEN 

1140 CLS #7: ISK #7.2: FLASH #7.1 


1210 DEFlne PROCctlura lnit 
1220 LOCal J . k 
1230 MODE 8 

1240 OPEN *4.acr_512x25Oa0xO 
1250 PAPER #4.0.1.0: CLS #4 
1260 OPEN #4.ecr_364x242a25xlO 
1270 PAPER #4.0: INK #4,7.-OVER #4.-1: 

CLS #4: BORDER #4.1.2 
1280 OPEN *5.acr_64x24a410x34 
1290 PAPER #5.0: CLS #5:BORDER #5.1.7 
1300 INK #5,7 : STRIP #5,2:PRINT #5, 

'GENER' : STRIP #5,0 
1310 OPEN #6,«cr_64x24a410x75 
1320 PAPER #6,0: CLS #6:BORDER #6,1.7 
1330 INK #6.7:STRIP #6.2: PRINT #6. 

'CELLS' : STRIP #6,0 
1340 OPEN #7,Bcr_88xi26a398xl20 


29 








Seguilo linaio Lite. 





1300 PAPER *7.0:CLS *7 : BOEDER *7.1.7 

13O0 nrl«24: nco=30 

1370 col-nco+2: co2»nrl*col 

1380 co3-<nrl*l>*col 

1390 cell=0 

1400 et- FILLACO’ , (nr 1+■2) *col > 

1410 nA-cAt pA»cA 
1420 END DEFIne inlt 

1430 REMark - 

CREAZIONE DELLA 'COLONIA* 


1440 DEFlne PROCedure creo 
1450 LOCa 1 r.c.cur» 

1460 gener=0 

1470 CLS *7: OVER *4.0 

1480 INK *7, 4 : PRI NT *7.' USA I J J -\ J ’ 

1490 INK *7.7: PRI NT *7W <SPACE> PER O 

N/OFF* W* FI PER CLEAR*W*F2 PER FINIRE* 

1500 r»nrl DIV 2: eneo D1V 2 

1510 REPeot ©posta 

1520 curA-**-*: IF c4<r*col*c*l>»l 

THEN cur4= * O* 

1530 AT *4 . r-1. c- 1: PRI NT *4. curi 
1540 tasto«CODEaNKEYA<5>) 

1550 AT *4,r-1.c-1: PRINT *4,* * 

1560 IF curA= * O' THEN AT *4. r-1.c-1 
: PRINT *4 ,cur4 
1570 SELcct OH tasto 
1580 ON tasto»192 
1590 c»c-l:lF c^O THEN c-nco 

1600 ON tasto-200 
1610 c-c+l:lF c>nco THEN c-1 

1620 ON tasto-208 
1630 r=»—1 :IF r«0 THEN r-nrl 

1640 ON taato-216 
1650 r =r ♦ 1 : IF r>nri THEN r-1 

1660 ON taato-32 
1670 BEEP 200.3 

1680 et* 1 -c4 <r *col+-c + 1 > *2 

1690 aggiorna rrcol+c+1 , et 

1700 ON tasto-232 
1710 RUN 

1720 ON tasto-236 
1730 EXIT sposta 

1740 END SELoct 
1750 END REPcat sposta 
1760 OVER *4,-1 
1770 END DEFlne modifica 

1780 REMark - 

NUOVA GENERAZIONE 


1790 DEFlne PROCedure genera 
1800 LOCal r.c.at.el.aucc 
1810 genor-gener*l 

1820 AT *5.1.0: PRINT *5.FILL4<* *.4- 

LEN(generi>;gonor ; 

1830 AT *6,1,0: PRINT *6,FILL4<* *.4- 


LEN(ce11>>;cell| 

1840 p4=n4 

1850 FOR r=nco+3 TO LEN<p4> STEP col 
1860 pA<r-*l>=n4<r-*l>+p4 (r+nco+1) 

1870 p4<r*nco-tl>»0 

1880 p4<r«-ncol = pS(r+nco)-p4 <r > 

1890 p4 <r)=0 

1900 END FOR r 

1910 FOR c»2 TO nco+1 

1920 p4<col*c)-p4(col+c> + p4<co3+c> 

1930 p4 <co3ec >-0 

1940 p4 <co2+c> »pA(co2*c>4p4 <c) 

1950 p4(c>=0 

i960 END FOR c 
1970 el»nco+3 
1980 REPoat cerca 

1990 eucc—pr1so(* 1 * INSTR cA(el*l TO 
> , * 3* INSTR pA (el-* 1 TO >> 

2000 IF succ-0 THEN EXIT cerca 
2010 el-el-tsucc 
2020 IF c4<el)»l THEN 
2030 IF pAlei> < >2 AND pt(el><>3 
THEN aggiorna el.-i 
2040 ELSE 

2050 IF p4(el)-3 : aggiorna el.l 

2060 END IF 

2070 END REPeat cerca 

2080 END DEFlne genera 

2090 REMark - 

AGGIORNA 1 VETTORI PER 
UNA -NASCITA* O 'MORTE* 


21O0 DEFlne PROCedure aggiorna <el,et> 

2110 c4(ol>=c4<el>»st 

2120 ce 11-ce11+ot 

2130 nA Ce1-33)-nA <e1-33 > tst 

2140 nA<el-32>“nStel-32>+et 

2150 nA<el-31>»nA<el-31>*st 

2160 n4<el-l)-nStel—l>-»st 

2170 nA<el-»l>=nA<eltl>*st 

2180 nA«el+31>-nA<ol»31>+st 

2190 nA<el-»32> = nS<el«-32J-tst 

2200 nl<el+33)-n4(el+33)+st 

2210 AT *4,el DIV col-l.el MOD col-2 

2220 PRINT *4.*0* 

2230 END DEFlr.e aggiorna 

2240 REMark - 

FUNZIONE * PRIMO* 


2250 DEFlne FuNctlon prlnoCa.b) 
2260 IF b-0 OR <a<>0 AND a<b)THEN 
RETurn a 
2270 RETurn b 
2280 END DEFlne primo 
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Commento al listato 

1000-1020 • S niz aizzano var nell e 
finestre e s- permette di creare a conlt- 
guraz one nizale d' cellule 
1030-1110 - Ciclo pr ncipaie de! eco¬ 
gramma; v ene visualizzata la gere'a- 
zione successiva e si attende la pressa¬ 
re di un tasto Notare ristruzione m nga 
1100 cno ha l'effetto di svuotare il buffer 
di tastiera 

1120-1190 - A seconda di quale tasto è 
stato premuto $ torna alia fase di edlt 
(FI), siati va auto-mode (F2) osemp - 
cernente $ elabora la generazione se¬ 
guente Notate cne non c'é modo di 
use re dai eie o principale, e il program¬ 
ma s puù arrestare solo dando Brnak 
oil Reset 

1200-1420 • Imzializzazicne delie fine¬ 
stre e de e var abili usate dai program¬ 
ma 

1430-1500 Procedure di crear one de - 
la colonia: la stessa procedura e neh a¬ 


mata a g eco iniziato per effettuare del- 
e piccole variazioni La variabile curS 
conterà il simcolo cor cu vorrà rapp'e- 
sentato il cursore ampegg ante (cioè 
- " oppure 0 a seconda che Si trovi su 
una casella libera o meno). 

1510-1770 • Loop di attesa notate la 
Selec'ir" nga 1570 che distingue le var e 
az eni da compiere in riscosta alla pres¬ 
sione O un ceterrr nato tasto. Le vana- 
b ree rnemor zzano la pos zione dei 
cursore 

1780-1830 - E la Procedura che elabora 
una nuova generazione d cellule, ed è 
Quindi un po’ il cuore di Life Notate 
come vengono stampate giust I cale a 
destra le irfc'rraz oni nelle fmest'e #5 e 

m 

1840-1960 - La str rga oS contare il 
numero dei vicin 1 vivi per ciascuna posi¬ 
zione I due c eli For/End For aggiorna¬ 
no gli elementi d pS che s riferiscono 
alle cellule del cordo (i cu vicini s trova¬ 
no Qundi su latooooosto) 

1970-2080 - Ciclo in cui vengono ricer¬ 


cate e cellule vive che devono mor re e 
viceversa e cunfa aii eemento in e- 
same Notate come in r.ga 1990 vengo¬ 
no analizzate so'tanto le cellule we (il 
cui elemento n cS è uno) e e cellule con 
esattamente tre vicini, facordo uso de - 
la furziore Irstnng e Primo. 

2090-2230 - Procedura d agg orna¬ 
mento che vene rich amata in caso d 1 
nascita o morte di una cellula: e oun- 
ta all'eiemerto da aggiornare e st va e 
+ 1 o -1 (risoettivamente per una na- 
scla e una morte). Alle righe 2130-2200 
viene rcerrentato (o decrementato) il 
contatore de verni vlv oer tutte e cellu¬ 
le cne cmondano la cellula nata (o 
morta) 

L istruzione ir riga 2220 funzona cor¬ 
rettamente perché nella finestra #4 è 
attiva l’opzione d Over -1. 

2240-2280 La Unzione 3 rimo restituì 
5 ce minore tra due positivi, ocpure il 
maggiore se uno dei due è nullo ■ 



NEL PROSSIMO 

NUMERO 

TROVERETE 



Music utility 

per C 64 


Grafica 3d 
con ILC 16 


Reticolato 

PER SPECTRUM 


Pro.dotto 

PER APPLE 


Panico 

PER SPECTRUM 


Cruci msx 
Istogrammi 

CON LO SHARP 


Archivio microdrive 

PER SPECTRUM 
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Presentazione 

L ucy wr te-, corre facilmente in¬ 
tuibile, è jn potente wp per o 
ZX Soectrum. Sfratta a' meg o 
le curatter st che del ca cc ato- 
re, sop'attjtto oer chi possedè anche i 
n c'Odrive. É di facile uso, essendo inte¬ 
rattivo. 

I orog-am.ma, ronostarte sia sor Ito ir 
Basic consta d alcune routine in n- 
guaggio macchina che consentono di 
aumentarne a velocità nei punti cove il 
Base risulterebbe tropco lento II pro¬ 
gramma, m fase di stampa, giust t ea a 
destra e a sinistra testo con un nume- 
•o a sce la di caratteri oer nea, provve¬ 
dendo anche a dividere in sillabe le pa¬ 
role irtemot:e a tire riga per una perfet¬ 
ta mpagmazene 

Se per qualsiasi motivo s dovesse in- 
terromeere prcg'amma, sarà suc¬ 
ciente battere "Goto Restart" ed Enter 
per farlo ripart re. 

Struttura del programma 

i: testo è contenuto in un’un ca stanga 
ed e mostrato sui video a pagine di 21 
r gne per 32 colonne le pagine sono 35 
pe' un totale di 23 520 ca r atten, più che 
sufficienti cer evadere la corrisponden¬ 
za o cer redigere brev. oattiloscr tti 
Il testo nor è video-orientato, cioè 
que o cne apoare su video non coinci¬ 
de con oò cne verrà stampato: questa 
non è una lunazione perché nor na 
nessun interesse sacere come lo scritto 
sara stampato, n'atti sarà sempre con¬ 
forme ai nostri voleri. 

Appena anelato, cassata a presenta¬ 
zione, s entra ir ambente scrittura, e 
appa-e la prima pagina, sl ! a prima ri¬ 
ga compare la scritta in inverse indican¬ 
te niz o ce testo in basso, sotto una 
linea d seoarazione, e ndicato il nume¬ 
ro della pagina su cut c»Si trova, (e cne è 
a pagina corrente) Ora potete rziare 
a sc'ivere dal punto ove e posizionato il 
cursore di scnttu'a (’•*) senza curaci 
di anda-e a capo co-rettamente ma 
scrivendo tutto di seguito come tosse 
tutta un'unica riga Padardo a inserire 
o spazio all'ir zio della riga successiva 
quardo a paro a precedente terminava 
esattamente a t ne r ga 
Quando si vuole andare a capolinea s< 
p-ema Enter; compahra una nota musi- 
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Lucy writer 
per Spectrum 


Un potente word processor 
di facile utilizzo, 
particolarmente mirato 
ai possessori di microdrive 




caie quest'ultm'a awert ra il calcolato¬ 
re ir ‘ase di stampa che pa-agra'O ò 
f imto. Se per errore la sì cancella va 
r iscritta Resta attivo il tasto Delete (Cap 
Sh tt -*-0). Tutti i tasti hanno il repeat 
Premerdo Simbcl Shitt -e (> =) si 
aziona il tabulatore che sposta il curso¬ 
re di cinque co enne per default, Pre¬ 
mendo SS +n (*) si aziona il modo 
calcolatore verrà richiesta una formu¬ 
la. il cui r su tato verrà stampato sul vi¬ 
deo dove era il cursore e inserito nel 
testo. 

Premendo S S + a (Stop) s passa in 
amb ente comandi: il loro elenco e re a- 
tive sp egazioni compare in tabella 1 
Dall ambente sor itura. premendo Edit 
(C.S -1). Si entra in ambiente edite- 
Ora ò comparso il cursore d ed t (in 
inverse) ed è possibile posiziora-lo al¬ 
trove. usando i tasti treccia, per esegui¬ 
re correzioni: pe- sostituire la lettera de) 
curso-e casta premere il tasto corn- 
spordente alla nuova lettera, Per ciù 
compesse modifiche bisogna hpreme- 
re Edit si entrà cos' n empiente altera¬ 
zioni Ql cor comandi a tasto unico 
(e encati ir tabe a 2) si possono acpor- 
tare e modifiche al testo. 

Da questo ampiente. premendo Stop 
(SS +a). s ritorna ir ambente ed tor. 
premendo o nuovamente si r passa in 
ambente scrittura cor la pcss b ità di 
'ar tornare cursore dov'ora originar,a- 


merte oppure di lasciarlo dove si trova¬ 
va i cursore dell'am&ente editor 
\e e pagine successive a quella niz a- 
e. la p-ima nga corterrà l’ultima rga 
della pag na eccedente: ciò oer facili¬ 
tare la stesura de testo 

Spiegazione di alcuni comandi 

Chango - Cambia una stringa con 
un a tra La r ce-ca è effettuata a co- 
mirc a-e dal pr mo carattere della pagi¬ 
na corrente ed e possiolle pe- stringhe 
fino a 20 caratteri La stringa ind vidua- 
ta è segnalata da lo scostamento del 
cursore O-a p-emerdo c avviene la 
sostituzione premendo a" la rce-ca 
prosegue premendo Edit (C.S. -1) si 
passa in amb ente editor 
Locate - Ricerca di una stnrga. Il fun- 
zioramento ò simile a Cnarge salvo 
che il tasto "c" non ha alcun effetto. 
Prlnt - Stampa su carta teste perfetta¬ 
mente giustificato con i C P.L voluto, 
interrompendos quando 
S S a (Stop) o si incontra marcatore 
"$★$*. 

Alla fine de: testo è mfatt necessario 
pc-re il suddetto ma-cato-e a in zio riga, 
at-iment la stampante continuerà a 
scr vere spaz hno ail'esauhmertc ce e 
pagine. Ponendo, a ir zio riga, il ma-ca- 
tore " " la str nga immediatamente do- 











Lucy wrttcr per Speclrvm 


ZX SPECTRUM 


Tab«rr« i 

• Elenco del comandi. 

ald 

Pore 1 numeri <j r ga 

back 

Indietro d unapagira 

bot 

Va all'ultima pugna 

changc 

Camola una paro a con urValtra. a partirò 
dalla pag na corrente 

colour 

Per la scelta de. colon di ink e Paoer 

cpl n 

Setta a n i caratteri per linea della stampa 
(delault 32) 

dclpngo Pu sce la pagn.a corri u-* 

odlt 

Passa direttamente m amtjierte Edi* 

forw 

Va avanti d< una pagina 

homo 

Porta il cursore scrittura n aito a sinstra, 

go n 

Va a a pagina n e a rende corrente. 

holp 

Mostra l’elenco dei comandi e delle ‘urzion di 
alterazione 

Inforni 

Informazioni generali. 

locato 

Trova, a oart re dalla pag na cocente, una 
parola data 

new 

Comincia tutto da capo 

print 

Stampa su stampante 

rot 

Torna in ambiente scrittura 

sylls 

Scomcosiz one sillab ca di una parola o frase 
della lingua -taliana 

tab n 

Setta il tabulatore perché salti ogni n colonne. 

top 

Va alla pnma pag na 

type 

Stampa su stampante senza giust i cani a 32 
colonne (stampa di serv zio). 

viow 

Mostra tutto II testo sul video con o scoli, 
premendo un tasto qua s as Premendo Stop 
(S S. + a) si torna ai comandi 

Comandi perla gestione delia memoria pi massa 

save 

Sa vataggio 

toad 

Carcamento con sistemaz one a partire dalla 
pnma pagina 

appcnd 

Caricamento con sistemaziore a partire da 
una pag.na specificata 

1 comandi di cui sopra, se seguili da un asterisco 
si riferiscono a< nucrodrive 

format 

Per la formattazione di una nuova cartuccia, 
a cui vene dato il nome "Test 

cat n 

Catalogo della cartuccia nel micrcdr ve n. 

erase 

Canee az one di un file dati nel microdrive. 

NB -Tuttiicomandi ir cucompareia etterar (tipogo 
n) vogliono un argomento, che dev esse*e niero positi- 

vo e distare almeno unospazo dalia carola preceden¬ 
te. 


Tabella 2- Elenco funzioni di alterazione 


o Agg ungerò uno spazio del cursore sooslanco scio 
•a mea colerne 

c Canee la la ' rea correrne dal cursore in poi 

d Cance lo uno o p u caratteri dopo il Cursore spo¬ 

stando tulio il testo 

0 Cancella un cimitero dopo il r^rscre spostalo 

solo la inea corrente (e ilduaed *a‘). 
e Cancella una o più rgne data corrente verso r 

tasso spostando in su tutto il testo. 

I Aggine ooj linee soo’8 la mea corrente 

spostando ng ù tutto il testo Le unirne Inee dell ut* 
i na pagina vanno cosi perse 

i Irse* sce uno str nga di caratteri primo ce: cursore, 

m Muovo ciocchi o linee anche da una pagina ai al¬ 
tra 

n Sposta a caoo lo l -ca colerne dal cursore alla 

tino 

N Sposta la Irea a capo de la cocente dopo l curso¬ 
re Evertual caratteri In eccesso saranno oerdutt. 

Stop Tc-rra r amblonie Edtt (S.S a) 

MB -Iconand' Chsrge. locare Punte la funzione 'o"sono 
so ogati D ù d busamente -e testo. 

I coma r c eie Ij^zion vanno caduti in minuscolo Lotunzori 
in maiuscolo vanne dato premerò antro Caps Shift 


Figura 1 • Hardcopy dal programma. 


3* nccoriM cha il principe 
di cono* ' dorai * prorondeaente 
la notte avanti ta giornata di 
Rocroi. »«, in prlao luogo, era 

nono affaticato; se condar i aden¬ 
te ave va--gi a - date tutte -ir-di- 
sposizionj necessarie, e stabi - 
Vito c> 0 ‘ enf dovesse' tare, i» 
pattina. 

da "i proaesii sposi" Cap. II 


Si racconta cne ti principe 
di Conde' dorai' proiondaatntc 
la notte avanti la giornata di R 
ocroi; «a. in orino luogo, era n 
olto affaticato; se condarianente 
aveva già* daic tutte le dispos 
iziom necessarie, e stabilito c 
io* che dovesse tare, la riattine 
. / 


da "I pronessi Sposi" Cap. Il/ 

»♦*/ 
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pò di esso verrà centrata nella riga: se 
: ult rno carattere è la nota, quest'uit ma 
verrà ignorata 

L opzione detir ta dal ha eltetto 
solo se stilizzata all’ir zio d un capo¬ 
verso 

Funzione "d" - Delete. Premendo il ta¬ 
sto "d' in ambiente alterazior , si azio¬ 
na :a f unzone dolete che cancella dal 
testo gruppi d> caratteri Appare un cur¬ 
sore lampeggante dov era il cursore di 
ed ter. spostaci coi tasti t'ecoa (senza 
C S!) Premendo Stop s 'inuncia alla 
‘unzipne i caratteri canee ati saranno 
quelli in mve'se più il curso-e Se si tenta 
di cancellai oltre la ime del paragrafo i 
caratteri in eccesso saranno ignorati. 
Non s può oltrepassare la pagina cor¬ 
rente Premere Enter per 'ar avviare la 
modifica 

Modifiche al programma 

La suoroutine che el'ettua mater ai- 
mente la stampa su carta si trova in 
linea 3500. ed é pred sposta per una 
stampante Scectrum dea cata Per ren¬ 
derla compatioile a a vostra stampante 
(nonSpectrum-ced cata) dovrete mod • 
f,caria ocportunamente Ricoroatevi di 
mettere il Rotum. al termine della su- 
oroutine. 


Chi volesse aggiungere nuovi coman¬ 
di o funzioni di alterazione sappia che 
ia routme e la tabella de onm n zia n 
nea 400. mentre la rojtme e la tabella 
delle seconde inizia a 1100 

Principali routine 

500 - Preparaziore alla gust frazione. 
600 - Ricerca dei paragrafi nel testo per 
la stampa 

700 - Stampa di serviz o (comando ty- 
pe). 

800 Scomposizione s abica 

1142 - Cancellazione dei caratter da 

testo. 

2000 - Presentazione inizia e e s stema- 

zione del nguaggio macchina 

2034 - Inserimento di stringhe nei testo 

3000 - G ustificazione 

8000 - Creazione delle costanti e de a- 

rea testo 

8530 - Passaggio parametri ai linguag¬ 
gio macch na. 


Principali variabili 

R,C - Coordinate cursore scrittura 
RI,CI - Coordinate cursore Edit. 


TAB - Parametro d tabulazione (de¬ 
fault cinoue). 

CPL - Caratteri oer linea (defauit 32) 

CC - Spazi da inser re per a giustifica¬ 
zione 

AA.BB - Primo e ultimo carattere ne 
testo per ooeraz oni varie 
POS - Posizione nei testo ce cursore di 
Edit • 

S (20) - Array contenente numerod'or- 
dine dell'ultima lettera di ogni sillaba 
della parola esaminata S(1) è sempre 
zero. Massimo 19 sillabe 
RS • Contiene il comando o la stringa da 
manipolare nel corso della stampa 
FS - Contiene il capoverso da trattare 
NS - Nome de testo 
T$(23520) - Il testo 

Routine 

in linguaggio macchina 

65447 - Trova una stringa ne testo, me¬ 
morizzata da 65427. e lunga a massimo 
20 caratteri 

65489 - Trova la pr mg nota oai cursorn 

65504 - Pu sce tutto il testo 

65524 - Sposta su o g u parte de testo 


Listalo 1 • Il programma Lucy wrllar. 

ggp bv M.Rogtnt» * A.no fdio 

12 CO SUB ««3: CO SUB 2«3: PAU 
SE *1 BOROER * t : INK * : POKE 23 
024,4: CLS : CO SUB P9: LET C«4l 
15 LET fa»» 

20 PRINT RT TlJ1 .»va 

25 PAUSE 4L: LET KaCODE INKEVS 

35 C IP , ?ìà2 5 0A 0164 OR LaO* TU 

EN .ì§ 0 PaÌnt“AT f.CiCMA* l: LET 1> 
(p c ar a»o ac ♦» i ) »CNR$ 1 _ 

45 LET i a < ♦ 1 IE C>31 THEN CO 
TO 60 

46 CO TO 20 , __ . , , 

00 LET C a C-HO : LET faf*l 

65 IE f <22 THEN CO TO 20 

75 CO TO 1030 _ 

66 IE L-13 THEN CO TO 130 
00 ir I■12 THEN CO TO 145 

100 IE La7 THEN CO TO 245 
105 IF la04 TMEN CO TO 160 
110 IE L-226 TMEN CO IO 400 
115 IE La200 TMEN CO TO 14Ì0 
120 CO TO 2S 

130 PAINT AT f. e;"/" , , ..... . 

135 LET LfiPCaf♦ ■04C'**»)• * : L 
ET Caso : CO TQ SO 


147 PRINT AT f , C; *' " 

150 LET CaC-Si . 

155 IE C>»41 TMEN CO TO 176 
160 LET C >31 : LET r.r-H 
165 IE f > *»i TMEN CO TO 175_.. 
170 LET fati: LET cui: CO TO 2 

0 

17S LET L*lpcir♦■oacati)■" : 0 

0 TO 20 

100 INPUT , rof40L4? ".LINE 4J 
CO SUB P3 IE Ila"" TMEN CO Tó 
25 

100 LET 4$aSTAS UAL 4» „ 

200 IE fa21 ANO C«LEM 4f>4031 A 
NO Piakxpg THEN CO TO 1025 
210 LET \S(pC+f*40^C4»i TO PC4f 
«ao »C»LEN 4SI <11 
215 GO SUB 4P : LET C «C *LEN 41: 
CO TO 45 

245 PRINT INUERSE »i i AT f.c;" 

250 LET flaf: ueT ClaC 

260 IE INKEYSo"" TMEN CO TO 26 

0 

265 LeT C$■lS IPC♦f1440♦C1♦»i) 
275 PRINT AT fl.Cl; INUERSE Ili 
ci: PAUSE 4L 

280 LET LaCODE INKEY» _ 

286 IE I<32 OR l>164 TMEN GO TO 
300 

200 PRINT AT f1/C1.CMR* 1 : LET 
Ljlg^fH.o-ClasH.ÒHA. fc: CO TO 
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Seguilo lutato Lucy w riter. 



330 PAINT AT ri.Cl.CI _ 

301 IF 1-226 THEN CO TO 360 
305 IP 1*7 TMEN CO TO 1100 
310 LET fl-rie<L*10>-U-ll) : LE 
T C1*C1-IL*8>♦(1*0» 

312 IP rl>21 TMEN LET rl.li 
314. IP aiti TH£N LET r 1*21 
316 ir c1>31 TMEN LET cl-tt 
318 IF Cl<AL THEN LET Cl*31 
320 CO TO 265 ,, „ 

360 PRINT OSijAT Si,4t, "OUJ 7 

PAUSE 4L __ _ „„ 

365 IP INKEYte"n" ThEN 00 TO 37 

2 

370 LET refi: LET Cefi__ ^ 

372 CO SUB pg: IP f>21 THEN CO 
TO 1023 
374 GO TO 20 

400 print AT r, c;tt (PC er*»oeces 

1 402 CO SUB pg: INPUT FLASH Si;" 
COMANOI", FLASH 4L," »■■>"; LlN 

404 CO SUB pg LET b*4t: LET *r 
gc-Si IF LEN f»<3 THEN CO TO 46 

°406 POR i*H TO LEN ft: IP f t ( i 
)■” " THEN LET L-l: CO TO 410 
408 NEXT » 

410 IP 1> A L THEN LET irstVflL fi 
(Lesi TO > LET rt*rj« TÓ L-Sll 
418 IF rt*"fore" ThEN CO TO 105 

3 

420 IF f t*"b*CL" THEN CO TO 106 

6 

422 IF rt*"savt” OR 
THEN CO TO 5000 „ J 

424 IP f LO40“ OR r|«”lO»(H" 

TMEN CO TO 5006 _ __ _ 

426 IP rt*"infora" THEN CO TO 7 
070 

426 IP rte"td»f THEN CO TO 102 

0 

429 IF f•■“COLOOf** THEN 00 TO 5 
OSO 

430 IP f|e“rtl“ THEN CO TO 20 
432 IP rte'go" THEN Co TO 4100 
434 IP f*«- top" THEN CO TO 9S0 
436 IP ft*"bOl" THEN 00 TÓ 956 
438 IP r *« "d« Lp 4gt " TMEN CO TO 

4110 

440 IP r ti"V!IM" TMEN 00 TO 145 

0 

442 IF ria"t4b'' THEN CO TO 1420 
444 IF r*e"ch»ng«" THEN CO TO 4 
205 

446 IP rt*"LOC*tt" THEN CO TO 4 
200 

448 IP ft*"SULlt" TMEN CO TO 15 
10 

450 IF rt*"hO*f‘ THEN CO TO 150 

0 

451 IF ft*"C4f THEN CO TO 8034 

452 IF r■ * "apperid" OR r«e'‘«pptn 

de" THEN CO TÙ 5012 _ __ 

453 IF r t*"f ora*l" THEN CO TO 5 
032 

484 IP ft*"nta" THEN RUN 
456 IF r f*"Pf ìnt" OR rt*"tVP*" 
THEN CO TO 600 

458 IP rt*"CPl" THEN CO TO 720 
460 IP rt«"4id" THEN CO TO 690 
462 IF rÌ-”«r*St" THEN CO TO 50 
38 

464 IF rt^htlp" THEN CO TO 120 

0 

466 PRINT Sii,AT Si.il.ut.AT »i 

.4L; "NON ESISTE . ,rt, r ““ Jr •: BEE 

P 1,0 PAUSE 60 GO TO C*d 
468 PRINT BSi.AT Si ,4 Li"ARGOHEN 
TO ERRATO": BEEP 1.0: PAUSE 60: 
CO TO cad 

500 LET tesi: IP i> *br L THEN LE 
T PJs r S CO SUB Pt RETURN 
505 LET at-rtu TO ieCPL-*l) 

510 LET rt*4t‘ TO CPU: LET i|> 
4ttCpl*Si TO ): LET jaieCPL 
512 IF INKEYt*" STOP M THEN RET 
URN 


514 LET bf«ttelt(j TO j eCP L-S i ) 
518 IF r«lCpL)e" * OR b«(Sile" 

" TMEN CO TO 552 
520 POR L-CPL-Si TO Si STEP -S» 

: IP riuiir ” then next l 
525 POR wapr TO CPL: IP b«(M)<> 
" " THEN NEXT v 

530 LET j taf t(L et i TO )ebt< TO 
e-Si» CO SUB 800 
535 POR gasi TO 20: IP S(V><eCP 
l-Si -L THÉN NEXT g 
540 IF S (V-Si) -4L THEN CO TO 85 

0 

545 LET rtUeti TO >*jt< TO S<V 
'‘ UtÌw-SiI ‘ 


. ) et 1 


THE 
•> e4 


_ _ , LE 

LEN 7 teepl• 1 1 


-Siile"-”; LET bt«jt(tlu- 
TO >♦b* tu TO ) . CO TO 652 
550 LET rfUeti TO )et5: LET bt 
• jttbt(» TO ) 

352 CO SUB 3t3: LET i-j ir 1 >* 
bfL THEN CO TO 580 
554 LET 4f*bt. IF LEN 4t<CPL TH 
EN LET 4 tea Set t( TO CPl-LEN 4S) 
556 CO TO 310 

580 IP LEN bt > CP L THEN CO TO 59 

0 

585 LET rtabt CO SUB 3078: RET 
URN 

590 LET fjabtt TO CPL): LET bt* 
btUPleSi TO ) 

592 IP bt»t t t TO LEN bt) THEN C 
O SUB 3078 RETURN 
594 CO TO 518 
600 CO SUB <LS : IF fl*"tUPe 
N CO TO 700 

604 CO TO 608e22e Ut 144) *" 

46e i t $ 1 44 TO 44 epf)*"tei") 

610 CO SUB 1600 
616 LET ft*tt(44 TO > ej-pr ) 

T r$*i tetti TÓ CpL-r“ ‘ — 

nt Tlen rtfcpo)) 

618 LET bfL-LEN ft-cpleSi LET 

44*ieto if 44>bb Then co to 105 

620 GO SUB 500 IF INKEYt*" STO 
P " THEN CO TO rtsttrt 
622 CO TO 604 

630 LET rt*lt(44eti TO ateaoOl) 
e" LET 44*44eao 
632 POR i*CPL TO Pf STEP -Si I 
P ft(«)<>" " then GO TO 636 
634 NEXT i : CO TO 604 
636 IP f« li )■'•*" THEN LET i.i-t 

‘638 LET f t eu t( TO (CPL -LEN rt( 
TO i))/pr>ert( TO il: LET pt*rt 
CO SUB PL: CO TO 604 
690 CO SUB 2100 PAUSE 4L: GO T 
0 1054 

700 POR l-44 TO bb STEP ao LET 
PfettU TO ie*031>: CO SUB Pi 
702 IF INKEYt*" STOP " OR ft< T 
O 3)e"Set" THEN GO TO ftstarl 
704 NEXT i: GO TO rtSltfL 
720 IF 4f9«l TMEN CO TO 468 
722 LET CPLearg: OIH tt(CPLeSl) 
; GO SUB pg: GO TO cad 
750 LET liipos-ci TO pcerleaoea 
OI*tttPOS-Cl TO POS-Si)e" "eltip 
OS Tu pcer 1**0eao31) GO TO 1180 
754 LET 1t(POS TO POS-Cle*031 ) ■ 
Lt (POS eii TO POS-Cleao31) CO TO 
1180 

770 INPUT "Outntt tinta? ",L L 
ET 1*1 il te"l") 

774 IF 7* THEN CO SUB 1187: CO 
TO 1160 

776 GO SUB 1154; CO TO 1160 
800 LET 11■j 6 OIH S(20) LET P 
p*pr: LET LSeLEN jt 
805 IP L%(LEN L11 (CHR t ao OR Lt 
(LEN »tl>CHRt 164 THEN LET Lt*Lt 
( TO LEN Lt-Si) GO TO SOS 
610 LET h-LEN Lt 
612 IF h<*2 THEN CO TO 872 
614 LET li«Si 
816 CO SUB 376 
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Seguito lutalo Lucy wrHer. 

S18 IF 11=0 THEN CO TO 866 

620 LET mali 

622 LET ItailUl 

624 IF i i >h TMCN CO TO 672 

626 ir Uliii> H h" OR 

THEN GO TO 822 

626 GO SUB 876 

630 ir llaal TMCN GO TO 8*6 

632 ir Ul-2 OR lt-2 THEN CO TO 

640 

634 LET jj'u-n 
636 GO SUB 806 
838 GO TO 810 
640 LET >iaii»1 
842 IF iwh THEN GO TO 672 
844 LET l l lei l 
646 GO TO 828 
648 LET ii»ii♦1 
SS0 IF n)h THEN GO TO 872 
6S2 GO SUB 876 
854 IF ll»4l THEN GO TO 860 
856 LET j j=»i-pr 
656 GO TO 836 
660 GO SUB 204 
862 IF 4=0 THEN GO TO 834 
864 CO TO 866 
666 LET ii=ii♦1 
868 IF i i >h THEN CO TO 872 
870 CO TO 816 
872 LET 4 ipp) =14 
374 RETURN 
878 LET IKtlnU 
680 ir ig="i" OR OR l»»" 

U" OR l*«"U" TMCN GO TO 892 
882 IF l |s”è" OR lÌa"A" OR ISa" 
«" OR l fa"E“ OR l*«"0" OR 
THEN GO TO 686 
854 LET Il agl 
866 RETURN 
888 LET llaii 
690 RETURN 
692 LET l l»pr 
894 RETURN 

898 LET i ippi aj,t*s ipp-ii> 

900 LET ppapp+si: LET igaigijj* 
ii TO ) 

902 RETURN 

906 LET lisi I 1 1i-li I 

906 LET Piaggili) 

910 IF ig-ag THEN CO TO 924 
912 IF iga-'g" AND Pta'T»” THEN C 
0 TO 920 

914 IF l $ ■'* l '* OR l g « " > " OR iga" 
n" OR t*i M r" OR ig*"V OR l*a"X“ 
THEN CO TO 924 

918 ir ig = "i" OR »ga-f then co 
TO 928 

920 IF ig= f THEN GO TO 924 

922 IF OR »g«”l" THEN CO 

TO 928 

924 LET 4 «al 

926 RETURN 

928 LET I sii 

930 RETURN 

950 LeT Pilli: LET pca-ao; GO T 
0 1054 

9S6 LET paaaxpg LET pcapa«nc-n 
C-»0: GO TO 1054 
1030 IF pasfexpg THEN GO TO 1025 
1005 CLS : LET P4«Pi*li: LET PC» 
PC eOC 

1010 PRINT RT al .ai; igipoii TO 
Poaoi.AT ii .il; *. gtpc+tio 33 TO pc 
incuoi : CO sue p 9 : CO TO 15 
1020 LET r>21 : LET ciaf: LET da 
al : GO TO 265 

1025 PRINT Bii.AT Si.al.xg.AT il 
,al;“NON t'f PIU- SPAZIO! -: BEE 
P ii.il: PAUSE 60: GO SUB pg: GO 
TO 1020 

1050 ir P4SBXP9 THEN GO TO (Id 


10S2 LET pispini LET pcepc+nc 
1054 GO SUB >P GO TO Od 
1066 IF Pi»Si THEN GO TO Od 
1068 LET paapa-ii LET pcspc-nc: 
GO TO 1054 

1100 PRINT AT d.Cl, INUERSE il, 
cg.aii.AT ii,i i,vi, hT ii,ai;"HOD 
0 ALTERAZIONI" LET POiapodtPO 

IÌ02 4 PAU5E il. LET kgaINKEYg 

1104 ir lle-C" THEN GO TO 1130 

1105 ir ig«"i" THEN GO TO 2020 

1106 IF ig«"l" THEN GO TO 770 

1107 ir III THEN GO TO 770 

1108 ir nga->" THEN GO TO 2200 

1109 IF l|i"d" THEN GO TO 2070 

1110 ir ig="0" then GO TO 754 

1111 IF l|i"IT THEN GO TO 2250 

1112 ir l|>"i" THEN GO TO 750 

1113 IF iga" STOP " THEN GO TO 1 
140 

1114 IF uga-N- THEN GO TO 2253 
1120 GO TO 1102 

1130 LET igipoi TO pCifliaono) • 
«g GO TO 1180 

1140 PRINT AT f l.d; igipoi) : GO 
SUB pg• GO TO 265 

1142 LET 44 apOi-C1 LET bbsPXCi 
GO SUB 1600 LET a =6*PEEK 23627 

♦256*PEEh 23628 POrE 65534,176 
ir i.j-poì n then let n=i*j*poi 

1143 IF i*j>>xCi THEN let vlapOi 
♦nti-ii. LET v2»P0i»a-ii: LET v 3 
«>xca-vita GO TO 1152 

1144 l£T fi=tgip 0 i*n TO i»>031>: 
LET vgii *>031-ntii TO i ♦no31) alt 

t lei ifipot to i«>o3i-n)arg 

1145 IF J >n THEN RETURN 

1146 LET nalNT liRBS Ij-ni*>0)/> 
0) . LET V 1 a ilUOli•!i LET V 2 ai il 
0-BOtidi-ii: LET v3a>XCi-ì->0 
1146 GO SUB S533 RANOOHIZE USR 
65524 

1150 LET igoxCa-BOek TO I ali g : R 
ETURN 

1152 IF v 3 >al THEN GO SUB 8530 
RANDOMIZE USR 65524: LET tllkXCi 
-r. «li TO lini RETURN 

1153 LET tgipOi TO uag RETURN 

1154 IF txci'ipctrliiitaoi< l *»o 
THEN RETURN 

1156 LET Pùilapoi LET POia£OS-C 
1 LET C2 B C1 LET Cliil: LET Pai 
0*1 GO SUB 1142. LET POiapOil: 
LET clac2 RETURN 

1160 GO SUB P9 IF Pi>ii THEN PR 
INT AT il.il.lilPCtii TO PC*>Ol 
1162 PRINT AT ii.al.1glpc*>033 T 
0 pc«nc«* 0 > RETURN 
1130 GO SUB >P 

1162 LET cgaigipoil GO TO 1100 
1188 IF l*>0>hXCi-P3i*C1 TKeN LE 
T t g (poi -C 1 TO imt RETURN 
1190 LET pOil=POi: LET POisPOi-C 
1 LET C2aC1 : LET (1*11: LET ig* 
FOR Z >S i TO l: LeT igsigug: 
NEXT z GO SUB 2034 LET poiapo 
il LET C1aC2. RETURN 
1200 CLS PRINT INVERSE il, FLA 
SH ii,"HOOO COMANDI" 

1210 PRINT '"tora-/'bia", , 'infof 
>", idii" ,"ret","go n-. "top","bo 
K ". "dt lpag«". "vilab". chana 
« ■' » loca i«" , "ig i li " » "ho>*■', "n«y" 
."pr mi" , "Ivpc , "cp l" ."a id" , "h« l 
P " 

12is PRINT "iaw«"."iaw«*-',"load" 
, " loao ,"append , "apptnd , "for 
mi", "ca l" , "«rase" 

1220 PRINT • INVERSE il, FLASH i 
i,"MODO ALTERAZIONI" 

1230 PRINT -"C . i , l i « 

, a , d o . n , N , a 

, STOP " 

1306 PAUSE il GO TO 1054 
1410 PRINT AT f,c;ISiPC*r«>0*C*i 
il. LET c-lib* llNT !C/tib»*l) 
1412 ir 031 THEN LET C*il 
1414 GO TO 20 

1420 IF 4 > 9>>o31 OR arg <ì i THEN 
CO TO 463 

1422 LET tibaarg: GO SUB pg 00 
TO Od 





Lucy wrllei por Spoctrum 


Seguito listalo Lucy «rritor. 

1*50 CLS PRINT ftT 21.*!; POKE 
20622,255 

1*55 FOR irli TO kACa STEP aO 
1*60 PRirrr un tg i*ao3ii 
1*62 IP lNKKYi=“‘ TmEN GO TO 1*6 
2 

1*6* IP INKEY* = “ STOP •' ThEN GO 
TO r«»l*rl 

1*65 NEXT i .... 

1*70 PR1NT BSi;"Pr«ai un Usto 
PAUSE *1 GO TO rtsun 
1S00 LET risi LET C*al GO TO c 

*510 CLS PRINT INVERSE 1;" 
SCOMPOSIZIONE SILLABICA " P 
LOT a 1.166 DRAU 255.al PLOT al 
,16*. ORALI 255.11 .. 

1512 INPUT '‘PAROLA O FRASE DA SI 
LLABARE " , . , j * : PRINT RT 3.ai; S 
OLUZIONE."/«xi- 
151* GO SUB 600 
1520 FOR i>Pr TO 20 _ _ 

1525 IF J illoLEN j » TMEN PRINT 
jt IS (i*$iltti TO Iti)); - .: NEX 

1530 PRINT jlllli-iilrit TO > P 
AUSE 11 GO TO 105* T ., T 

1600 LET ddelleS POKE 6S*0*.INT 
(dò/256): POKE 65*03,dd-256«P£E 
K 65*0* „ _ 

1602 LET vl«iiebb-ai: POKE 65*08 
,INT (vl/256) : POKE 65*07,vl-256 
•PEEK 65*03 „, 

1604 LET v2*iaevl-USR 65*30-pr 
LET ì ■(INT <v2/a0>eao)est LET j 

1606 1 IF* i >BXC* TMEN LET H1XC1-» 
031. LET yabO RETURN 

2002 FOR U l*65**7 TO 65S35 READ 

8i. , m>** M 8 L MpeS e 5T:‘cL 8 : I 

NK 5 PLOT 56,72 DRRU OUER Si; 5 
0,00,2*3 INK 3 FLASH,n PRINT 
éPXGMT s > . AT 0,l*l"LUC y *V#»T i*. 
13. INVERSE 1i,"URITER : FLASH 1 

2020 INPUT N a* IF l*»- STOP ~ OR 

LEU 1*>BXC*-P0S TMEN GO TO USO 

2022 GO SUB 203* GO TO UBO 
203* LET a*«POS-Cl: LET bb*axca 
2036 LET a*5ePEEK 23627e256*PEEK 
23626 POKE 65534.13* 

600 IF i♦j»LEN iS>ax ca TMEN GO 
TO 2060 

2030 LET l*IUT ((LEM ItO-Si) /BO 
I IF LEN limo -J TMEN GO TO 20* 

2040 LET vl*axc*-»0*1♦! LET v2* 
»xca>* LET v3»vi-a-»-aoesi 
20*6 IF v3>al TMEN GO SUB 3530: 
RANDOMIZE USA 6552* , 

20*8 LET (*sl*ip0S TO 

ET IStpOS TO i*»0*l*l031)«*• LE 

t inpoi to pos* lEn a») «a» 

2050 LET ItiPOSeLEN a» TO POSALE 

N a**LEN /*)••'* RETURN 

2060 LET v2saxca»a LeT vl«v*-LE 

N 11 LET w3«S»ev1-a-pòS 

2062 GO SUB 6530 RANDOMIZE USR 

6552* 

206* LET l»(POS TO poseLEN *«-S» 
lt)l RETURN __ . 

2070 PRINT OSi.AT Si .al, • *, AT li 
,al;"DELETING": LET f2*fl LET C 

2072 PRINT P AT 1 |‘^C2; FLASH NOT C 
ODE INKEY». INVERSE Si.lt (POSI) 
LET ksCOOfc INKEY* 

207* IF 1*13 TMEN LET n.posl-pos 
♦SI GO SUB 11*2 GO TO 1180 
2076 IF 1*226 TMEN GO TO 1180 
2078 IF » *56 AND C2<B031 TMEN PR 
INT AT r2,C2, INVERSE Siitt(poti 
i LET C2*C2*Si LET pOSlspOSleS 
I GO TO 2072 

2030 IF k *53 AND C2>»1 AND NOT( 
r2arl AND C2 =C1I TMEN PRINT AT 
r2.c2;ItiPOSl) LETC2*C 2-S » : LE 
T P0S1*P0S1-SI GO TO 2072 
2062 IF k=5* AND r2<21 TMEN PRIN 



T AT r2.C2. INUERSE Si.lt (POSI T 
0 PiiUial . LET .-2*r2tS> LET PO 
slaposleao GO TO 2072 
203* IF k»5S AND r2>rl ANO NOT 4 
r2*rlesi AND C2<C1< TMEN LET fi» 
f2-Sk: LET pOSlsPOS1-BO. PRINT A 
T .-2.C2. ItipOSl TO posleao) 

2036 GO TO 2072 

2100 FOR i*Si TO *1. PRINT AT i, 
ai, INVERSE Si." " RND i <10.1., 1 

NVER5E al;" ";l* (P c♦» «»o ♦ *i .0 P 
C eieao ebOOl-pr) 

2102 NEXT i RETURN 
2200 PRINT BSi.AT si . a l ; lns«ria 
amo ptriitiri": GO SUB 2100 
220S INPUT "Da quai* pagina? ';p 
1 INPUT "A <(V1U pagina? "ìp* 
2210 INPUT "Da quale riga? "ili; 

input -A qual* riga? .*L INPU 
T “in quii* riga? 12 let qi*q 

2220* IF Pl>axpg OR Pitti OR ll<t 

i OR P2>axpg OR 12<H OR p2<St O 

R 11>21 OR ql<Si OR ql>21 2 R l 3.i 
21 OR 22-12tql TMEN PRINT Csi,AT 
»t .ai.-PARAMETRI ERRATI" BEEP 
Si.70 PAUSE 60 GO TO 2205 
2225 LET l*ip2»nC-nceSi+(12-Si)« 
•o TO pi«nc-nc♦ 112 -Si > ♦aoeqleao) 
»i*(pl«n<-nc»sievil-si)ito TO Pi 
«nc-nc ♦ i n-si ) «aoeqleao) : GOTO 
1180 -- 
2250 LET l»(pc+irl*si)*ao*»i TO 
pe♦ *•" lesi i *ao eapi *tt ipo* TO pi.er 
l *uo *s»o) 

~~ TO pcerloaoeao)* 


2232 LET l*(POS 
e* GO TO 1180 
2253 IP axpgapa 
O TO 1130 
2260 Ler mpos 


AND ri*22 TMEN G 


_ __ to pc*r1«aotao) = 

L s i p c ♦ 11 * 1 ♦! i ) *uc »s i TO pc+triesi 
itao «aoi LET 1 * ipCt< ( 1esi) *B0eS 
i TO PCeirleSi»taoeao)*«t: GO TO 
1180 

3000 FOR k»cpi TO Si STEP -S» 
3015 IF r| ili«" " TMEN NEXT k G 


_ TO 3064 
3025 LET CC-CPI-I LET CCl*CC: L 
ET r«sr*i TO k.) 

3030 FOR r.sSi TO LEN f* IF r*(n 
TMEN NEXT ri 

IF r. spr TmEN LET rl*r«ipr T 
LET cocchi LET cd;CC 
IF Cesai TMEN GO TO 3064 
FOR u «n TO LEN ri 
IF rtnin- " TMEN GO TO 30* 


I s' 
3032 
0 I 
303* 

3036 

3037 
8 

3036 
30*0 
30*2 
30*4 
30*8 
i TO 


fifEKT y 

IF CCsCCl TMEN GO TO 306* 

IF cc.al TMEN GO TO 3036 
GO TO 306* 

LET fisril TO u) ♦" ‘er* (ueS 
. _ > LET CCSCC-S1 IF CC-*l T 

HEN GO TO 306* 

3050 FOR !•* TO LEN rt 
TmEN LET usi GO 
NEXT t GO TO 
i_ET p*»rt: GO 


IF 


im 


ir riisiio" 


TÒ 3037 

RETUR 
TMEN GO TO 3 
TO ) ♦“ "• GO T 


3036 
SUB Pi 


< > " 

3052 
306* 

N 

3070 
06* 

3080 LET r*».-*fpr 
G 3076 

REM 

3500 REM •• ROUTINE DI STAMPA •* 

3501 REM 

3502 LPRINT P* RETURN 

*100 IP irg>axpg OR argtsi then 
GO TO *63 

*102 LET pa*arg. LCT pc»M*nc*nc 
-ao GO TO 105* 

*110 LET l|ipc*»033 TO PC*nc*»OI 

*£S GO SUB »P Gu TO 1500 _ 

*200 LET c f *11 INPUT “COSR TROU 
07 ". c * GO TO *206 


41 







Lucy mi iter per Spcclrum 



Seguilo lutato Lucy «tritar. 


4235 LET e f a* » INPUT “VECCHIO " 

, e * , "nuovo "ib* 

4236 GO SUB PJ IP LEM C|>20 ThE 
N PRINT 3Si ,HT ii.il.wt.AT Si .11 

. stringhi troppo lunga max 23)" 
PAUSE 63: OC TO C4d 
4206 FOR f«Si TO LEN C * : POKE 1 ♦ 
65426.CODE CKO: NEXT ( 

4213 LET JJ.LEN CI POKE 65467.j 
j-Ji LET ria*» LET Cla-Si 
4212 LET Z 1*PC »•* L*«0*C 1*7: POKE 
65452.INT (Z1/256) : POKE 6S451.Z 

I -256»PEEK 65452. LET z2«4XC4-j.j 
-Z1*6 POKE 65456.INT «Z2/256). 
POKE 6545S,Z2-256#PEEK 65456 

4214 LET z«zl»Z2-USR 6S447-6: IP 
:Okxci-Jj-s» THEN SO TO 4223 

4216 PAINT B*».hT S»,4l,W«;AT S» 
,41,"STRINGA NON TROVATA.": PAU5 
E 63 SO TO 1354 

4223 LET p 4 a* »♦INT IZ/OC) LET P 
C»P4.r.C-nC-bO: LET Xaz-nc»lNT »Z 
/no : LET rl«INT ilt-Sll /IOI «Si 

LET e lai-»oa<r1-*i)-*» 

4222 GO SUB PO SO SUB 4P 

4224 PRINT AT ri.Ci; INVERSE 1»; 

II 4 Z ) 

4226 IP CODE INKEV*«7 THEN GO TO 
263 

4226 IP 1NKEV»«"4" THEN GO TO 42 
12 

4230 IP NOT (INKEYt■"C" AND Cf) 
TnEN GO TO 4226 

4232 LET POSapC+r1440+C1t*» : IP 
LEN b* < j j THEN LET najj-LEN bS: 
GO SUB 1142 GO TO 4236 
4234 LET 4*aMS> TO LEN b»-jj>: G 
0 SUB 2034 

4236 LET UipCKl*a6Kl.ll TO PC 
♦ r 1 . 1.0 «C ItLEfl iti=b* GO TO 42rf2 
5000 CLS PRINT AT 13.13; PLASH 
S t."SAVlNG": GO SUB 5320 GO SU 
B £022 

5032 IP f|«"s»v«" THEN SAVE n*CO 
DE »nd,qua GO TO re* l a r l 
5034 GO SUB 5026; 6AVE «'V.j.nl 
CODE ina.qua CO Tù r e * i a r t 
5336 CLS PRINT AT 13,12. FLASH 
* »,"lOADInG" RANDOMIZE USR 655 
04 GO SUB 5320 LET quaat*xC4 
5006 IF r $ = " I04d" OR r*a"4PP«nd" 
THEN LOAD ntCODE »r.d,qu4 GO TO 
restart 

5010 00 SUB 5026: LOAD 
CODE »nd.qu4: GO TO r«*t4fl 
5012 CLS PRINT AT 10,13. FLASH 
*i,"APPEND": INPUT "D4 quali P4 
«ma' ",x IP x <* » OR » >*xpg THE 
N GO TO 5012 

5014 GO SUB 5020 LET »«X*nc-DC4 
Si: LET induMM-ii: LET qua*l»x 
C4-i Gù TO 5006 

5020 INPUT "Nt,bi dii tiStO (U4X 
IO) LINE ri* LET »r.dx6*PEEK 2 

3627«256«PEEK 23626 RETURN 
5022 POKE 65451.6 POKE 65432^1 
POKE 65455.224 POKE 65456.*1 
PONE 65467,2 POKE 65427.36 PO 
KE 05426,42 POKE 65422.36 
5024 (.ET qvaaux C4-USR 65447-*»: 
IP qua.t»xc*-»o31 ThEn LET quaanx 
ca 

5026 RETURN 

5326 INPUT "wujlt b»crodr»v«? "; 
j IP j(ìi OR j>6 THEN GO TO 502 

6 

5030 RETURN _ _ 

5032 CLS PRINT AT 10.13. FLASH 
i»,"FORMAT" GO SUB 5026: 6T0P 
FORMAT "b",i;"t«*li"; GO TO 50 
36 


5034 LET u«arg IP j<Si OR j>6 T 
HEN GO TO 466 

5036 CLS CAT j: PAUSE 41: GO T 
0 r*»tari 

5038 CLS PRINT AT 11,12, FLASH 
* t."ERASING" GO SUB 5020 GO 5 
UB 5026: INPUT INVERSE *»." CONF 
ERMI" -, INVERSE 4l;" "i LINE 4* 
IF a«<>"*»" then GO TO ra*iart 
5040 ERASE "b";j,n*: GO TO resta 
r t 

5050 input "Ini? j," Paper? 

x 

5052 50R0ER i 1NK j: PAPER X P 
OKE 23624,j «6•x GO SU6 4P GO T 
0 end 

7070 CLS PRINT INVERSE 1,"INF0 
RHAZIONI • 

7072 PRINT *"NOHE DEL TESTO : 

7076 PRINT '"PAGINA CORRENTE : 

" » P 4 

7076 PRINT '"COORDINATE CURSORE 

"OSO’PRINT '^PARAMETRO DI TA6ULA 
z ione ";tab 

7082 PRINT '"CARATTERI PER LINEA 

7Ò84 PRINT Ss».“PREMI UN TASTO P 
ER RITORNARE" 

7324 PAUSE 0 
7395 GO TO 1054 

6000 DIM lt(23520 » : LET bXC4*LEN 
t» LET q* aSS16 LET pt=3500. L 
ET pg88506 LET bp»1160 LET cfcd 
s402: LET alaO LET *»=1 LET pr 
=2 LET HO31a31 : LET b0=32 LET 
no 33=33 LET nc=672 
8010 DIM «liaoi, LET rcstart*9S0 
LET hXP9abXCa/nC LET P4a*i L 
ET PC=-bO LET tab=5 LET CP l =40 

dim eccepì**») 

8100 POR (=41 TO 7: READ 4* POK 
E USR 4f.UAL 4$ NEXT f 
8102 POR r=at TO < READ 4* POK 
E USR -'W.UAl 4 C : NEXT I 
8104 POKE 23602,40 . 

8200 DATA "3"."12","13“."8"."56" 
,"123","46","3"."3","3"."255”."2 
SS","255“."255"."0","0" 

6202 DATA "42",“75","92"."1"."6" 
.'3"."9","1","224","91","17", "14 
7","255"."26","237","177","192", 
"229". 197","6"."1","123","254". 

"0","40","9","43"."19","35","26" 
, "190 ."32", "S" ,"16","248"."193" 

. ' 223" , "201'', " 193" , "225" , "24" . "2 
24" 

6204 DATA "42"."75"."92","1","6" 
C • ,"l","224"."91","62","14 

4 . $37" ,"177","201","42","75"," 
92 ' . "1","6","0". "9","1","224"."9 
1 . 62". ‘32"."119","35"."11"."12 
0 , 177","200"."24"."246"."33"," 
0". O","l?","0"."0","l","O"."©", 
"237"."164 ."201" 

6400 RETUR); 

8506 PRINT BS » , AT 4 l , 4 l ; "WMbB 

«I, AT 

*».ai;"PAGE. ";p4 
6510 IP pi=fa>pg THEN PRINT SS»;A 
T s».lù« INVERSE *»." ♦* PINE DE 
L TESTO " 

8512 IP P4 =S » THEN PRINT AT 4 1,4 
', INVER5E *»," ♦♦ 114IZI0 DEL TE 

Sto ♦♦ -, it .verse al;" 

8514 RETURN 
8520 CLS 

SS22 input "Dalia pag.? ",44." A 
ila pag.? ",bt 

6524 IF 44<ii OR 44>4xpg OR bb<* 

» OR bb >4xpg OR bb<44 THEN GO TO 
6522 

8526 LET 44=44*nc-nc«*»: LET bba 
»b*nc CLS RETURN 
6530 POKE 66526.INT »v1/256): PO 
KE 65525.vi-256»PEEK 65526 
0532 PONE 65529,INT lv2/2S6>: PO 
KE 65526.V2-2564PEEK 65529 
8534 POKE 65532,INT (v3/256>. PO 
KE 65531,v3-2S6*PEEK 65S32 
3536 RETURN 










SINCLAIR OLI 


Indirizzamento 
della grafica 
per pixel 

Gestiamo le capacità grafiche del QL 

d* Massimo Modelli 


C orre 0 ce il prove'bio *ron 
tutte lo ciambelle riescono col 
buco" e ancne r QL non fa 
eccezione a questa 'ego a 
mostrando rena grafica alcune mcer- 
‘ezior G'i ur c nei sono rappresentai 
dal sistema di riemoimento delle tq jre 
chiuse e dalla gestione delle coord na¬ 
te. E di questo secondo aspetto che 
mtend amo occuparci in questo arit co¬ 
lo. Pe' i indirizzamento dei comandi 
g'ato viene ut zzato un sistema di 
coordinate cartesiane stardard indi* 
pendente dal modo g'ahco usato, a 
Quattro o a otto colon, e dalla posizione 
de pixel £ nollre posscie. per mezzo 
de comando Scale, spostare l'origine di 
questo sistema d n‘er mento relativa¬ 
mente a 'a ‘ir.estra usata e modificarne 
arche la scala Purt'oppo però non è 
possibile defir re indioerdentemente la 
scala su: due assi, ma solo globalmen¬ 
te. 

Segmenti di uguale lunghezza (»n cm) 
su io sche'mo avranno sempre anche 
a stessa lunghezza rispetto alle coordi¬ 
nate grafiche, s a che siano verticali che 
orizzonta 

Se da una parie ciò fa S'che i quadrati 
risultino sullo schermo effettivamente... 
quadrati, indipendentemente dal modo 
grafico usato e compensando la diver¬ 
sa densità dei pixe rei e due direzioni, 
d’altra parie ron permette d'indirizzare 
la grafica oer pixel. 

Questa carenza ouó risultare impor¬ 
tante a esempio, dovendo disegnare 
delle figure non troppo g'ardi in quan¬ 
to risulteranno i evemente diverse a se¬ 
conda della zona dello schermo, o me- 
gì o a seconda cei valore delle coordi¬ 
nate in cui verrarno d segnate Nei ca¬ 
so in cui l'ampezza verticale graf ca di 
una finestra sia stata fissata ugua e a 
que a in pixel, ta e deformazione, dovu¬ 
ta agii arrotondamenti eseguiti dal si¬ 
stema nel far corrispondere i va ori de”e 
coordinate ai singoli punti tnd rizzaoili, 
risulterà presente solo ne' senso delia 
larghezza, modificando le propcrzior 
delle diverse parti 

£ possib e sopperì a questa man¬ 
canza per mezzo d> una formula che 
forn sca e coordinate grafiche corri¬ 
spondenti a ogni singolo punto indiriz¬ 
zai; le dello schermo. Consider amo pe' 
primo caso de i alta nso'uz'one pe' 
r cavare questa formula s deve innanzi¬ 
tutto valutai il rapsodo: tra i potei oriz¬ 


zonta e quelli verticali: fra nume'Odei 
pixel cne compongono una linea de a 
stessa lungnezza. m su'ata nel sistema 
di coordinate graf che. nelle due da¬ 
zioni orizzonta e e verticale II va O'e da 
noi trovato oer questo rapsodo, deter¬ 
minato misurando la a'ghezza graf ca 
d finestre di d mensiom note, è 1.35. Se 
le coo'dinate graficne sono state setta¬ 
te. con comando Scale. In modo che 
l a tezza delia finestra (r spetto a a g r a- 
rica) sia uguale a amoiezza verticale in 
pixel e l'origine sia nell'angelo interiore 
sinistro ce a f nest'a (con Scale WH 
0.0; dove WH ò il n umero di p xe' sull'as¬ 
se veriica e della t nest'a. pe* intendere 
il secondo oarametro usato con i co¬ 
mandi Wmdow e Open), allora un p xe 
di coordinate (rispetto sempre all'angc- 
■o infer ere sinistro) M,N sa'à ind vidua- 
to dalle coordinate grafiche 

X —M/1.35 
e 

Y-N 

Nei caso più generale in cu le eoo re - 
nate grafiche siano state mzalizzate 
con il comando Scale H. O'gX O'gY si 
dovranno modificare e semp 1 c formu¬ 
le vste sopra: 

X = (M/Cx)-OrgX 
e 

Y-(N/Cv) + 0'gY 
dove: 

Cx= 1.35 * WH/H 
e: 

Cy=W h/h 

È importante 'ico'dare che s a OrgX cne 


OrgY sono dei numeri con segno 
Nel caso si lavor in cassa risoluzione 
cioè con otto color per adattare le for¬ 
me e prma vste è su'ric ente derimre a 
posto di Cx. Cx8 = Cx/2 Poiché s a Cx 
(o Cx8) che Cy non dipendono da pun¬ 
to da ndivicuare in un eventuale pro¬ 
gramma che dovesse tracc are de e li¬ 
nee tra due oixel. potrebbero ven -e de¬ 
finiti una so a volta, in questo program¬ 
ma sarebbe comodo de'imre due lun¬ 
goni che operino la conversione oa oi¬ 
xel a grafica a esempio 

DEF FN Xg (Xp Cx.OrgX) 

LOCAL X 

X - (Xp/Cx) + OrgX 
RETURN X 
END DEF Xg 

e 

DEF FN Yg(Yp.Cy.OrgY) 

LOCAL V 

Y-(Yp'Cy) ♦ Qrgv 
RETURNY 
END DEF Yg 

Un auro $ sterna per indirizzare pe’ cun- 
ti, particolarmente utile e veloce ouando 
s Ceppano disegnare figure composte 
da rettangoli, consiste nell utilizzo del 
comando B'ock cne permette un indiriz¬ 
zamento misto, per pixel e grafico ' 
di'etto di questo comando è che se 1 
'ettangolo esce da' 'imiti della f nestra 
vene generato un messaggio di errore 
e eventuale programma si ferma, cosa 
che non accade con cornane di pura 
grafica. ■ 








